home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8902a.d64 / sub dir 1.1 (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  5KB  |  258 lines
  1. 100 REM ******************
  2. 110 REM *                *
  3. 120 REM * SUB DIR SYSTEM *
  4. 130 REM *                *
  5. 140 REM ******************
  6. 150 REM
  7. 160 REM (C) 1988 BY
  8. 170 REM DIRK JANSEN
  9. 180 REM
  10. 190 REM VER 1.1 - 21.07.88
  11. 200 REM ==================
  12. 210 :
  13. 220 PRINT CHR$(147)
  14. 230 PRINT TAB(13);"SUB DIR SYSTEM"
  15. 240 PRINT
  16. 250 PRINT TAB(13);"V1.1  21.07.88"
  17. 260 PRINT
  18. 270 PRINT TAB(8);"(C) 1988 BY DIRK JANSEN"
  19. 280 PRINT
  20. 290 PRINT"========================================"
  21. 300 GOSUB 4000:REM * GERAETE NUMMERN ABFRAGEN
  22. 340 PRINT CHR$(147)
  23. 350 PRINT"***** SUB DIR SYSTEM V 1.1 *****"
  24. 360 PRINT
  25. 370 PRINT"GERAET:";U,"LAUFWERK: ";D$
  26. 380 PRINT:PRINT
  27. 390 PRINT" 1 - SUB DIR SYSTEM ANLEGEN"
  28. 400 PRINT
  29. 410 PRINT" 2 - SUB DIR ANLEGEN"
  30. 420 PRINT
  31. 430 PRINT" 3 - DISK BEFEHL"
  32. 440 PRINT
  33. 450 PRINT" 4 - INHALTSVERZEICHNIS"
  34. 460 PRINT
  35. 470 PRINT" 5 - GERAETE NUMMEN AENDERN"
  36. 480 PRINT
  37. 490 PRINT" 0 - PROGRAMM ENDE"
  38. 500 PRINT:PRINT
  39. 510 INPUT"IHRE WAHL";O
  40. 520 ON O+1 GOSUB 1000,10000,20000,2000,3000,4000
  41. 530 GOTO 340
  42. 970 :
  43. 980 REM *** ENDE ***
  44. 990 :
  45. 1000 SYS 64738
  46. 1970 :
  47. 1980 REM *** DISK BEFEHL ***
  48. 1990 :
  49. 2000 PRINT
  50. 2010 POKE 198,3
  51. 2020 POKE 631,34
  52. 2030 POKE 632,20
  53. 2040 POKE 633,34
  54. 2050 A$=""
  55. 2060 INPUT"BEFEHL";A$
  56. 2070 OPEN 15,U,15
  57. 2080 IF A$="" THEN 2200
  58. 2090 PRINT#15,A$
  59. 2200 PRINT
  60. 2210 PRINT"STATUS: ";
  61. 2220 GET#15,E$:IF E$<>CHR$(13) THEN PRINT E$;:GOTO 2220
  62. 2230 CLOSE 15
  63. 2240 PRINT:PRINT:PRINT"- TASTE DRUECKEN -"
  64. 2250 GET A$:IF A$="" THEN 2250
  65. 2260 RETURN
  66. 2970 :
  67. 2980 REM *** INHALTSVERZEICHNIS ***
  68. 2990 :
  69. 3000 PRINT
  70. 3010 OPEN 1,U,0,"$"+D$
  71. 3020 POKE 781,1
  72. 3040 GET#1,A$,A$
  73. 3050 GET#1,A$,A$:IF ST = 64 THEN 3110
  74. 3060 : GET#1,A$,B$:PRINT CHR$(157);ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0));
  75. 3070 : GET#1,A$:PRINT A$;:IF A$<>"" THEN 3070
  76. 3080 : PRINT
  77. 3090 GOTO 3050
  78. 3110 CLOSE 1
  79. 3120 PRINT:PRINT:PRINT"- TASTE DRUECKEN -"
  80. 3130 GET A$:IF A$="" THEN 3130
  81. 3140 RETURN
  82. 3970 :
  83. 3980 REM *** GERAETE NUMMERN AENDERN ***
  84. 3990 :
  85. 4000 PRINT
  86. 4010 INPUT"GERAETE NUMMER? 8[157][157][157]";U
  87. 4020 IF U<8 OR U>15 THEN 4010
  88. 4030 INPUT"LAUFWERK      ? 0[157][157][157]";D$
  89. 4040 IF D$<>"0" AND D$<>"1" THEN 4040
  90. 4050 RETURN
  91. 9970 :
  92. 9980 REM *** SYSTEM ANLEGEN ***
  93. 9990 :
  94. 10000 OPEN 15,U,15,"I"+D$
  95. 10010 INPUT#15,E1,E2$,E3,E4
  96. 10020 IF E1=0 THEN 10100
  97. 10030 PRINT
  98. 10040 PRINT"*** DISK: ";E1;E2$;E3;E4;"***"
  99. 10050 PRINT
  100. 10060 RETURN
  101. 10100 OPEN 2,U,2,"#"
  102. 10110 PRINT#15,"U1 2 ";D$;" 18 1"
  103. 10112 FOR I=2 TO 226 STEP 32
  104. 10120 : PRINT#15,"B-P 2";I
  105. 10130 : GET#2,T$
  106. 10150 : IF T$<>"" THEN 10170
  107. 10160 NEXT I
  108. 10162 PRINT#15,"B-P 2 0"
  109. 10164 GET#2,T$
  110. 10166 IF T$="" THEN 10220
  111. 10170 : PRINT
  112. 10180 : PRINT"*** DISK IST NICHT LEER ***"
  113. 10190 : PRINT
  114. 10200 : INPUT"DISK LOESCHEN(J/N)? N[157][157][157]";A$
  115. 10210 : IF A$="N" THEN CLOSE 2:CLOSE 15:RETURN
  116. 10220 : PRINT:PRINT"IMPRESSUM SCHREIBEN"
  117. 10222 PRINT#15,"B-P 2 00"
  118. 10230 PRINT#2,CHR$(0);CHR$(255);
  119. 10240 FOR I=0 TO 7
  120. 10242 : PRINT#15,"B-P 2";I*32+2
  121. 10250 : PRINT#2,CHR$(195);CHR$(18);CHR$(0);
  122. 10260 : READ A$
  123. 10270 : PRINT#2,LEFT$(A$+"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]",16);
  124. 10280 : PRINT#2,CHR$(0);CHR$(0);CHR$(0);
  125. 10290 : PRINT#2,"DIRK";
  126. 10300 : PRINT#2,CHR$(0);CHR$(0);
  127. 10310 : PRINT#2,CHR$(0);CHR$(0);
  128. 10320 NEXT I
  129. 10330 PRINT#15,"U2 2 ";D$;" 18 01"
  130. 10340 PRINT:PRINT"ROOT DIR ANLEGEN"
  131. 10350 CLOSE 2
  132. 10360 CLOSE 15
  133. 10370 N$="======ROOT======":REM -NAME UEBERGEBEN
  134. 10380 GOSUB 30000:REM - DIR ANLEGEN
  135. 10470 OPEN 15,U,15
  136. 10480 PRINT:PRINT"INIT DISK"
  137. 10490 PRINT#15,"I";D$
  138. 10500 PRINT:PRINT"VALIDATE DISK"
  139. 10510 PRINT#15,"V";D$
  140. 10520 CLOSE 15
  141. 10530 RETURN
  142. 10662 PRINT#15,"B-P 2 0"
  143. 10664 GET#2,T$
  144. 10666 IF T$<>"" THEN 10180
  145. 12000 DATA " SUB DIR SYSTEM "
  146. 12010 DATA "(W) '88 D.JANSEN"
  147. 12020 DATA "                "
  148. 12030 DATA "USE DISK COMMAND"
  149. 12040 DATA "   &XXXXXX TO   "
  150. 12050 DATA "   CHANGE DIR   "
  151. 12060 DATA "                "
  152. 12070 DATA " DON'T VALIDATE "
  153. 19970 :
  154. 19980 REM *** DIR ANLEGEN ***
  155. 19990 :
  156. 20000 PRINT
  157. 20010 N$="":INPUT"DIR NAME (MAX 15 ZEICEN)";N$
  158. 20020 IF LEN(N$)>15 OR LEN(N$)<1 THEN 20010
  159. 20030 N1$=N$
  160. 20040 IF LEN(N$)<16 THEN N$="="+N$+"=":GOTO 20040
  161. 20050 N$=LEFT$(N$,16)
  162. 21000 PRINT:PRINT"DIR ANLEGEN"
  163. 21010 GOSUB 30000:REM - DIR ANLEGEN
  164. 21900 RESTORE
  165. 21910 FOR I=0 TO 7
  166. 21920 : READ A$
  167. 21930 NEXT I
  168. 22000 PRINT:PRINT"UMSCHALT BEFEHL ANLEGEN T:";T;" S:";S
  169. 22010 OPEN 2,U,2,"&"+N1$+",U,W"
  170. 22020 PRINT#2,CHR$(0);CHR$(5);:REM - STARTADRESSE
  171. 22030 PRINT#2,CHR$(35);:REM - ANZAHL BYTES
  172. 22040 P=0
  173. 22050 FOR I=1 TO 35
  174. 22060 : READ A
  175. 22070 : IF A=-1 THEN A=T
  176. 22080 : IF A=-2 THEN A=S
  177. 22090 : P=P+A:IF P>255 THEN P=P-255
  178. 22100 : PRINT#2,CHR$(A);
  179. 22110 NEXT I
  180. 22120 P=P+5+35
  181. 22130 P=P-(255*INT(P/256))
  182. 22140 PRINT#2,CHR$(P);
  183. 22150 CLOSE 2
  184. 23000 PRINT:PRINT"UMSCHALTEN"
  185. 23010 OPEN 15,U,15
  186. 23020 OPEN 2,U,2,"#"
  187. 23030 PRINT#15,"U1 2 ";D$;" 18 01"
  188. 23040 PRINT#15,"B-P 2 0"
  189. 23050 GET#2,T$,S$
  190. 23060 T=ASC(T$+CHR$(0))
  191. 23070 S=ASC(S$+CHR$(0))
  192. 23080 CLOSE 2
  193. 23090 PRINT#15,"&"+N1$
  194. 23100 CLOSE 15
  195. 23900 RESTORE
  196. 23910 FOR I=0 TO 7
  197. 23920 : READ A$
  198. 23930 NEXT I
  199. 24000 PRINT:PRINT"RUECKSCHALT BEFEHL ANLEGEN  T:";T;" S:";S
  200. 24010 OPEN 2,U,2,"&BACK,U,W"
  201. 24020 PRINT#2,CHR$(0);CHR$(5);:REM - STARTADRESSE
  202. 24030 PRINT#2,CHR$(35);:REM - ANZAHL BYTES
  203. 24040 P=0
  204. 24050 FOR I=1 TO 35
  205. 24060 : READ A
  206. 24070 : IF A=-1 THEN A=T
  207. 24080 : IF A=-2 THEN A=S
  208. 24090 : P=P+A:IF P>255 THEN P=P-255
  209. 24100 : PRINT#2,CHR$(A);
  210. 24110 NEXT I
  211. 24120 P=P+5+35
  212. 24130 P=P-(255*INT(P/256))
  213. 24140 PRINT#2,CHR$(P);
  214. 24150 CLOSE 2
  215. 25000 PRINT:PRINT"RUECKSCHALTEN"
  216. 25010 OPEN 15,U,15
  217. 25020 PRINT#15,"&BACK"
  218. 25030 CLOSE 15
  219. 25040 RETURN
  220. 29970 :
  221. 29980 REM *** DIR ANLEGEN ***
  222. 29990 :
  223. 30000 OPEN 15,U,15
  224. 30010 OPEN 2,U,2,"#"
  225. 30020 PRINT#15,"U1 2 ";D$;" 18 01"
  226. 30030 PRINT#15,"B-P 2 0"
  227. 30040 GET#2,T$
  228. 30050 T1=ASC(T$+CHR$(0))
  229. 30070 PRINT#15,"B-A ";D$;" 18 00"
  230. 30080 INPUT#15,A,A$,T,S
  231. 30090 PRINT#15,"B-A ";D$;T;S
  232. 30100 PRINT#15,"B-P 2 00"
  233. 30110 PRINT#2,CHR$(0);CHR$(255);
  234. 30120 PRINT#2,CHR$(195);CHR$(18);CHR$(0);
  235. 30130 PRINT#2,LEFT$(N$+"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]",16);
  236. 30140 PRINT#2,CHR$(0);CHR$(0);CHR$(0);
  237. 30150 PRINT#2,"DIR ";
  238. 30160 PRINT#2,CHR$(0);CHR$(0);
  239. 30170 PRINT#2,CHR$(0);CHR$(0);
  240. 30180 PRINT#2,CHR$(0);CHR$(0);
  241. 30260 FOR I=34 TO 253
  242. 30270 : PRINT#2,CHR$(0);
  243. 30280 NEXT I
  244. 30300 PRINT#15,"U2 2 ";D$;T;S
  245. 30310 IF T1=18 THEN 30500
  246. 30320 : PRINT#15,"U1 2 ";D$;" 18 01"
  247. 30330 : PRINT#15,"B-P 2 0"
  248. 30340 : PRINT#2,CHR$(T);CHR$(S);
  249. 30350 : PRINT#15,"U2 2 ";D$;" 18 01"
  250. 30500 CLOSE 15
  251. 30510 CLOSE 2
  252. 30520 RETURN
  253. 39970 :
  254. 39980 REM *** DATEN FUER & FILE ***
  255. 39990 :
  256. 40000 DATA169,18,133,8,169,1,133,9,169,128,133,1,165,1,48,252,169,-1,141,0,4
  257. 40010 DATA169,-2,141,1,4,169,144,133,1,165,1,48,252,96
  258.